﻿Imports System.Data
Imports System.Data.SqlClient
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNavier.UTIL

Public Class UsuarioDALC
    Public Function ValidarUser(ByVal objUsuarioBE As UsuarioBE) As Boolean 

        Dim arrSqlParameter(1) As SqlParameter
        Dim ds As DataSet
        Dim dt As DataTable

        Dim sqlListar As String
        Dim objDatos As New AccesoDatos()
        Dim blnExito As Boolean
        Dim bResultado As Boolean
        Dim strMensaje As String = String.Empty
        Dim intI As Integer = 0

        Try
            sqlListar = "up_Usuarios_Logeo"

            arrSqlParameter(0) = New SqlParameter()
            arrSqlParameter(0).ParameterName = "@UsuCodi"
            arrSqlParameter(0).SqlDbType = SqlDbType.VarChar
            arrSqlParameter(0).Size = 15
            arrSqlParameter(0).Value = objUsuarioBE.CodiUsu

            arrSqlParameter(1) = New SqlParameter()
            arrSqlParameter(1).ParameterName = "@UsuPsw"
            arrSqlParameter(1).SqlDbType = SqlDbType.VarChar
            arrSqlParameter(1).Size = 15
            arrSqlParameter(1).Value = objUsuarioBE.PswdUsu
             
            ds = objDatos.DevuelveDataSet(sqlListar, blnExito, strMensaje, arrSqlParameter)
            dt = ds.Tables(0)
            bResultado = False
            If blnExito Then
                If dt.Rows.Count > 0 Then
                    If Val(dt.Rows(0).ItemArray(0)) = 0 Then
                        bResultado = False
                    Else
                        bResultado = True
                    End If
                End If
            Else
                bResultado = False
            End If

            Return bResultado

        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, "Error")

        End Try

        Return True

    End Function

End Class
